home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / KILL.ZIP / KILL.DPR next >
Encoding:
Text File  |  1996-11-28  |  861 b   |  43 lines
  1. program Kill;
  2.  
  3. uses
  4.   SysUtils,
  5.   WinProcs,
  6.   WinTypes,
  7.   Messages,
  8.   ToolHelp;
  9.  
  10. {$R *.RES}
  11.  
  12.  function EnumProc(AHandle: HWND; lParam: Longint): Bool; export;
  13.  begin
  14.    PostMessage (AHandle, WM_CLOSE, 0, 0);
  15.    Result := True;
  16.  end;
  17.  
  18. {Variables Globales}  
  19. var
  20.    AcApp : array [0..255] of Char;
  21.    hExe : THandle;
  22.    pTask : TTaskEntry;
  23.    bTask : Bool;
  24.  
  25. {Main Proc}
  26. begin
  27.      if ParamCount = 0 then
  28.        Exit;
  29.      if ParamCount = 1 then
  30.        StrPCopy (AcApp, ParamStr (1));
  31.      pTask.dwSize := SizeOf (pTask);
  32.      hExe := GetModuleHandle (AcApp);
  33.      bTask := TaskFirst (@pTask);
  34.      while bTask do
  35.      begin
  36.        if pTask.hModule = hExe then
  37.          {PostAppMessage (pTask.hTask, WM_QUIT , 0 ,0);}
  38.          EnumTaskWindows(pTask.hTask, @EnumProc, 0);
  39.        bTask := TaskNext (@pTask);
  40.      end;
  41. end.
  42.  
  43.